program readint;
{$mode tp}{$X-}

uses
  SysUtils;

var
  a,b,c: integer;
  s,t,u,v:char;

procedure mostrar(s:char);
begin
  if (ord(s)=10) or (ord(s)=13) then
     write('[',ord(s),']')
  else
     write(s,'[',ord(s),']');
end;

begin
  write('Buffer (sin if) [fin .]:');
  repeat
    read(s);
    write(s,'[',ord(s),']');
  until s='.';
  read(s);
  write(s,'[',ord(s),']');
  read(s);
  write(s,'[',ord(s),']');
  readln;
  writeln;

  write('Buffer: [fin .]:');
  repeat
    read(s);
    mostrar(s);
  until s='.';
  read(s);
  write('[',ord(s),']');
  read(s);
  write('[',ord(s),']');
  readln;
  writeln;


  write('Ingrese el valor de a:');
  read(a);
  writeln('El valor de a es ',a);
  readln;

  write('Ingrese el valor de a:');
  readln(a);
  writeln('El valor de a es ',a);
  readln;



  write('READ: Ingrese 3 valores enteros presionando ENTER:');
  read(a);
  read(b);
  read(c);
  writeln('El valor de A es ',a,', B es ',b,' y C es ',c);
  readln;

  write('READ: Ingrese 3 valores enteros separados por espacios:');
  read(a);
  read(b);
  read(c);
  writeln('El valor de A es ',a,', B es ',b,' y C es ',c);
  readln;




  write('READ: Ingrese 3 valores enteros presionando ENTER:');
  read(a,b,c);
  writeln('El valor de A es ',a,', B es ',b,' y C es ',c);
  readln;

  write('READ: Ingrese 3 valores enteros separados por espacios:');
  read(a,b,c);
  writeln('El valor de A es ',a,', B es ',b,' y C es ',c);
  readln;



  write('READLN: Ingrese 3 valores enteros presionando ENTER:');
  readln(a);
  readln(b);
  readln(c);
  writeln('El valor de A es ',a,', B es ',b,' y C es ',c);
  readln;

  write('READLN: Ingrese 3 valores enteros separados por espacios:');
  readln(a);
  readln(b);
  readln(c);
  writeln('El valor de A es ',a,', B es ',b,' y C es ',c);
  readln;



  write('READLN: Ingrese 3 valores enteros presionando ENTER:');
  readln(a,b,c);
  writeln('El valor de A es ',a,', B es ',b,' y C es ',c);
  readln;

  write('READLN: Ingrese 3 valores enteros separados por espacios:');
  readln(a,b,c);
  writeln('El valor de A es ',a,', B es ',b,' y C es ',c);
  readln;

  write('READ Mixto 1: Ingrese 1 valor entero y un char separados por espacios:');
  readln(a,s);
  writeln('El valor de A es ',a,', S es ',s,'[',ord(s),']');
  readln;

    write('READ Mixto 2: Ingrese 1 valor entero y un char separados por espacios:');
    read(a,s,t,u,v);
    writeln;
    write('A:',a);
    write(' s:');
    mostrar(s);
    write(' t:');
    mostrar(t);
    write(' u:');
    mostrar(u);
    write(' v:');
    mostrar(v);

    readln;
end.

